home *** CD-ROM | disk | FTP | other *** search
/ DarkBasic Professional / DarkBasicPro.iso / data1.cab / Lang_Files_(English) / Projects / Planet_Potter / progress / Planet Potter 1.dba next >
Encoding:
Text File  |  2004-09-22  |  874 b   |  44 lines
  1. Rem Project: Planet Potter
  2. Rem Created: 25/07/2002 15:38:30
  3.  
  4. rem Initialise
  5. sync on : sync rate 60
  6.  
  7. rem Load environment
  8. set camera range 1,10000
  9. load object "media\moonlit\ml.x",100
  10. scale object 100,20,20,20
  11. set object cull 100,0
  12. set object light 100,0
  13.  
  14. rem Load nine planets
  15. for p=1 to 9
  16.  load object "media\planet\planet.x",p
  17. next p
  18.  
  19. rem Load player sounds
  20. load sound "media\sounds\shoot.wav",1
  21.  
  22. rem Load game sounds
  23. load sound "media\sounds\appear.wav",11
  24. for s=12 to 19 : clone sound s,11 : next s
  25. load sound "media\sounds\explode.wav",21
  26. for s=22 to 29 : clone sound s,21 : next s
  27.  
  28. rem Main loop
  29. do
  30.  
  31. rem Control player cursor and shot
  32. if mouseclick()=1 and guncool=-1 then play sound 1 : guncool=3
  33. if guncool=0 and mouseclick()=0 then guncool=-1
  34. if guncool>0 then dec guncool
  35.  
  36. rem Update screen
  37. sync
  38.  
  39. rem End loop
  40. loop
  41. end
  42.  
  43.  
  44.